home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE20 / TIPTRIX / LISTING8.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1997-03-17  |  619 b   |  34 lines
  1. unit Unit1;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Classes, Graphics,
  5.   Controls, Forms, Dialogs, StdCtrls;
  6. type
  7.   TForm1 = class(TForm)
  8.     Label1: TLabel;
  9.     Label2: TLabel;
  10.     procedure FormCreate(Sender: TObject);
  11.   private
  12.     procedure Test;
  13.   public
  14.   end;
  15. var
  16.   Form1: TForm1;
  17.   x : Integer = 10; // <<<<
  18.   y : Integer = 99; // <<<<
  19.  
  20. implementation
  21. {$R *.DFM}
  22.  
  23. procedure TForm1.Test(); // <<<<
  24. begin
  25.   label1.caption := 'x= ' + inttostr(x);
  26.   label2.caption := 'y= ' + inttostr(y);
  27. end;
  28.  
  29. procedure TForm1.FormCreate(Sender: TObject);
  30. begin
  31.   test(); // <<<<
  32. end;
  33. end.
  34.